'--------- 
        Dim SQLstr As String = "select max(s_id) FROM students"
        Conn.Open()
        Dim mx1 As New OleDbDataAdapter(SQLstr, Conn)
        Dim myDataSet As New DataSet()
        mx1.Fill(myDataSet, "students")
        Dim Cmd2 As New OleDbCommand(SQLstr, Conn)
        TextBox1.Text = Cmd2.ExecuteScalar() + 1
